<script>on mouseUpanswer program "Select server to control..." of type "WILD" or "MMse"waitcursorif it is empty then exit mouseupput it into cd fld "server"updatelistend mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>68</left>
<top>138</top>
<right>283</right>
<bottom>155</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>serverpass</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>5</id>
<text>MacMail!</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>*:Edible Mac:MacMail Server 1.1</text>
</content>
<name>MMSI.options</name>
<script></script>
</card>
card_2938.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mousedoubleclickclick at the loc of cd btn "go to"end mousedoubleclick</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>124</left>
<top>45</top>
<right>175</right>
<bottom>63</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go to</name>
<script>on mouseUpwaitcursorgo cd "MMI.userinfo"waitcursorput seltext() into cd fld "name"put "Loading..." into cd fld "password"put "Loading..." into cd fld "waiting"request "usrpass(" & quote & seltext() & quote & "," & quote & serverpass() & quote & ")" from program server()if the result is not empty then get the resultif it contains "can't take the value" then get "Old server version. Download 1.1 or later."put it into cd fld "password"request "userwait(" & quote & seltext() & quote & "," & quote & serverpass() & quote & ")" from program server()if the result is not empty then get the resultif it contains "can't take the value" then get "Old server version. Download 1.1 or later."put it into cd fld "waiting"end mouseUpfunction seltextreturn the selectedtext of cd fld "userlist" of cd "MMSI-main"end seltext</script>
<script>on mouseUpanswer "What type of account?" with "Address" or "Alias"if it is "address" then answer program "New username address?"else ask "New username alias?"if it is empty then exit mouseupwaitcursorsend "adduser " & quote & it & quote to program server()if the result is not empty then answer the resultupdatelistend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>53</left>
<top>45</top>
<right>121</right>
<bottom>63</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Remove</name>
<script>on mouseUpupdatelistanswer "Are you sure?" with "Yes" or "No"waitcursorif it is "no" then exit mouseupsend "deleteuser " & ¬quote & the selectedtext of cd fld "userlist" & quote & ", " & ¬word 2 of the selectedline of cd fld "userlist" & ", " &¬quote & serverpass() & quote to program server()if the result is not empty then answer the resultupdatelistend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>253</left>
<top>24</top>
<right>287</right>
<bottom>39</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31377</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>about</name>
<script>on mouseUpgo cd "MMSI.options"end mouseUp</script>
